home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Programming / DiceSource / lib / amiga / mods.a < prev    next >
Text File  |  1994-02-01  |  534b  |  42 lines
  1.  
  2.         ;   MODS.A
  3.         ;
  4.         ;   (c)Copyright 1990, Matthew Dillon, All Rights Reserved
  5.         ;
  6.         ;   D0%D1 -> D0 signed modulus
  7.         ;   32%32 -> 32 signed modulus
  8.  
  9.         section text,code
  10.  
  11.         xdef    __mods
  12.         xref    __divu
  13.  
  14. __mods:
  15.         tst.l    D1
  16.         bmi    ds10
  17.         tst.l    D0         ; numerator
  18.         bmi    ds20
  19.         bsr    __divu
  20.         move.l    D1,D0         ; remainder
  21.         rts
  22. ds10        neg.l    D1
  23.         tst.l    D0
  24.         bmi    ds30
  25.         bsr    __divu
  26.         ;;neg.l   D1
  27.         move.l    D1,D0
  28.         rts
  29. ds20        neg.l    D0
  30.         bsr    __divu
  31.         neg.l    D1
  32.         move.l    D1,D0
  33.         rts
  34. ds30        neg.l    D0
  35.         bsr    __divu
  36.         neg.l    D1
  37.         move.l    D1,D0
  38.         rts
  39.  
  40.         END
  41.  
  42.